home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / midi / MusicXRexxMacs.lha / macros / chords / minor ninth.mxe < prev    next >
Text File  |  1997-02-05  |  1KB  |  60 lines
  1. /* © Dick Doyle */
  2.  
  3.  
  4. options results                
  5.  
  6.  
  7.  
  8. MXRADIO "Selected Notes,All Notes"    
  9.  
  10.  
  11. MXREQUEST "MINOR NINTH,DO IT"  
  12. if result == 0 then exit    
  13.  
  14. MXPOINTER "sleepy"        
  15.  
  16. MXVALUE 1            
  17. if result == 0 then BEGINSCAN 'selected'
  18. else BEGINSCAN 'all'                    
  19.  
  20. if result ~= 0 then do forever        
  21.  
  22.   NEXTEVENT                
  23.   if result == 0 then break
  24.  
  25.   if EVENT.TYPE == 'NOTE' then do    
  26.     newval = EVENT.NUM + 3
  27.     if newval < 0 then newval = newval + 128
  28.     if newval > 127 then newval = newval - 128
  29.     EVENT.NUM = newval
  30.     ADDEVENT
  31.   end
  32.   
  33.    if EVENT.TYPE == 'NOTE' then do    
  34.     newval = EVENT.NUM + 4
  35.     if newval < 0 then newval = newval + 128
  36.     if newval > 127 then newval = newval - 128
  37.     EVENT.NUM = newval
  38.     ADDEVENT
  39.   end
  40.  
  41.   if EVENT.TYPE == 'NOTE' then do    
  42.     newval = EVENT.NUM + 3
  43.     if newval < 0 then newval = newval + 128
  44.     if newval > 127 then newval = newval - 128
  45.     EVENT.NUM = newval
  46.     ADDEVENT
  47.   end  
  48.  
  49.    if EVENT.TYPE == 'NOTE' then do    
  50.     newval = EVENT.NUM + 4
  51.     if newval < 0 then newval = newval + 128
  52.     if newval > 127 then newval = newval - 128
  53.     EVENT.NUM = newval
  54.     ADDEVENT
  55.   end
  56. end
  57. ENDSCAN                    
  58.  
  59. MXPOINTER "normal"            
  60. exit